home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Muzyka / Edytory sampli (probek dzwieku) / ZynAddSubFX_2.2.0 / Setup_ZynAddSubFX-2.2.0.exe / source code / UI / VirKeyboard.fl < prev    next >
Text File  |  2005-03-14  |  12KB  |  401 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0106 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  8.  
  9. decl {\#include <stdlib.h>} {public
  10. } 
  11.  
  12. decl {\#include <FL/fl_draw.H>} {public
  13. } 
  14.  
  15. decl {\#include <FL/Fl_Box.H>} {public
  16. } 
  17.  
  18. decl {\#include "../globals.h"} {public
  19. } 
  20.  
  21. decl {\#include "../Misc/Master.h"} {public
  22. } 
  23.  
  24. decl {\#include "../Input/MidiIn.h"} {public
  25. } 
  26.  
  27. decl {\#include "WidgetPDial.h"} {public
  28. } 
  29.  
  30. decl {const int keyspos[12]={0,-1,1,-2,2,3,-4,4,-5,5,-6,6};} {} 
  31.  
  32. decl {const int keysoct1qw[]={'q','2','w','3','e','r','5','t','6','y','7','u','i','9','o','0','p','[','=',']','\\\\',FL_Enter,0};} {} 
  33.  
  34. decl {const int keysoct2qw[]={'z','s','x','d','c','v','g','b','h','n','j','m',',','l','.',';','/',0};} {} 
  35.  
  36. decl {const int keysoct1dw[]={'\\'','2',',','3','.','p','5','y','6','f','7','g','c','9','r','0','l','/',']','=','\\\\',FL_Enter,0};} {} 
  37.  
  38. decl {const int keysoct2dw[]={';','o','q','e','j','k','i','x','d','b','h','m','w','n','v','s','z',0};} {} 
  39.  
  40. class VirKeys {: {public Fl_Box}
  41. } {
  42.   decl {static const int N_OCT=6;} {}
  43.   decl {static const int SIZE_WHITE=14;} {}
  44.   decl {static const int SIZE_BLACK=8;} {}
  45.   Function {VirKeys(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  46.     code {master=NULL;} {}
  47.   }
  48.   Function {init(Master *master_)} {} {
  49.     code {master=master_;
  50. for (int i=0;i<N_OCT*12+1;i++) pressed[i]=0;
  51. midich=0;
  52. midivel=100;
  53. midioct=2;
  54.  
  55. keyoct1=3;
  56. keyoct2=2;
  57. rndvelocity=0;} {}
  58.   }
  59.   Function {draw()} {} {
  60.     code {int ox=x(),oy=y(),lx=w(),ly=h()-1,i;
  61.  
  62. if (damage()!=1){
  63.  fl_color(250,240,230);
  64.  fl_rectf(ox,oy,lx,ly);
  65.  
  66.  fl_color(FL_BLACK);
  67.  fl_line(ox,oy,ox+lx,oy);
  68.  fl_line(ox,oy+ly,ox+lx,oy+ly);
  69.  for (i=0;i<N_OCT*7+1;i++){
  70.    fl_line(ox+i*SIZE_WHITE,oy,ox+i*SIZE_WHITE,oy+ly);
  71.    int ik=i%7;
  72.    if ((ik==1)||(ik==2)||(ik==4)||(ik==5)||(ik==6)) 
  73.      fl_rectf(ox+i*SIZE_WHITE-SIZE_BLACK/2,oy,
  74.               SIZE_BLACK+1,ly*3/5);
  75.  };
  76. };
  77.  
  78.  
  79. for (i=0;i<N_OCT*12;i++){
  80.   // if (pressed[i]==0) continue;
  81.  
  82.    int noct=i/12;
  83.    int kv=keyspos[i%12];
  84.  
  85.    if (kv>=0){//white keys
  86.      if (pressed[i]==0) fl_color(250,240,230);
  87.         else fl_color(FL_BLUE);
  88.      fl_rectf(ox+(kv+7*noct)*SIZE_WHITE+3,oy+ly*3/5+2,
  89.        SIZE_WHITE-4,ly*2/5-3);
  90.    } else {//black keys
  91.      kv=keyspos[(i+1)%12];
  92.      if (pressed[i]==0) fl_color(FL_BLACK);
  93.         else fl_color(FL_BLUE);
  94.      fl_rectf(ox+(kv+7*noct)*SIZE_WHITE-SIZE_BLACK/2+2,oy+2,
  95.               SIZE_BLACK-3,ly*3/5-5);
  96.    };
  97. };} {}
  98.   }
  99.   Function {handle(int event)} {return_type int
  100.   } {
  101.     code {int i;
  102. int ly=h();
  103. int x_=Fl::event_x()-x();
  104. int y_=Fl::event_y()-y();
  105. if ( (x_<0)&&(x_>w()) && (y_<0)&&(y_>h())){
  106.   return(0);
  107. };
  108.  
  109.  
  110. if ((event==FL_PUSH)||(event==FL_DRAG)||(event==FL_RELEASE)){
  111.    int kpos=-1;
  112.   
  113.    if (y_>ly*3/5){//white keys
  114.        int pos=x_/SIZE_WHITE;
  115.        if (pos<0) return(1);
  116.        for (i=0;i<12;i++) {
  117.           if (pos%7==keyspos[i]) {
  118.              kpos=pos/7*12+i;
  119.              break;
  120.           };
  121.        };
  122.    } else {//black keys
  123.        int pos=(x_+SIZE_WHITE/2)/SIZE_WHITE;
  124.        if (pos<0) return(1);
  125.        for (i=1;i<12;i++) {
  126.           if (pos%7==-keyspos[i]) {
  127.              kpos=pos/7*12+i;
  128.              break;
  129.           };
  130.        };
  131.    };
  132.  
  133.    if (((event==FL_PUSH)||(event==FL_DRAG))&&
  134.        (Fl::event_shift()==0)) {
  135.         presskey(kpos,1,1);
  136.    };
  137.  
  138.    if ((event==FL_PUSH)&&(Fl::event_shift()!=0)) {
  139.        if (pressed[kpos]==0) presskey(kpos,0,1);
  140.           else relasekey(kpos,1);
  141.    };
  142.    if ((event==FL_RELEASE)&&(Fl::event_shift()==0))
  143.         relaseallkeys(1);
  144.    take_focus();
  145. };
  146.  
  147.  
  148. const int *keysoct1=keysoct1qw;
  149. const int *keysoct2=keysoct2qw;
  150.  
  151. if (config.cfg.VirKeybLayout==2) {
  152.     keysoct1=keysoct1dw;
  153.     keysoct2=keysoct2dw;
  154. };
  155.  
  156. if ((event==FL_KEYDOWN)||(event==FL_KEYUP)){
  157.    int key=Fl::event_key();
  158.    int kpos=-1;
  159.    for (i=0;keysoct1[i]!=0;i++) if (key==keysoct1[i]) kpos=i+12*keyoct1;
  160.    for (i=0;keysoct2[i]!=0;i++) if (key==keysoct2[i]) kpos=i+12*keyoct2;
  161.  
  162.    if (kpos==-1) return(0);
  163.    if (event==FL_KEYDOWN) presskey(kpos,0,2);
  164.       else relasekey(kpos,2);
  165. };
  166.  
  167. return(1);} {}
  168.   }
  169.   Function {presskey(int nk,int exclusive,int type)} {} {
  170.     code {if (nk>=N_OCT*12) return;
  171. if ((nk<0)&&(exclusive==0)) {
  172.   relaseallkeys(type);
  173.   return;
  174. };
  175. if (pressed[nk]!=0) return;//the key is already pressed
  176.  
  177. if (exclusive!=0) relaseallkeys(type);
  178. pressed[nk]=type;
  179.  
  180. damage(1);
  181. float vel=midivel;
  182. if (rndvelocity!=0){
  183.   vel=midivel*(127.0-rndvelocity)/127.0+RND*rndvelocity;
  184. };
  185.  
  186. pthread_mutex_lock(&master->mutex);
  187.  master->NoteOn(midich,nk+midioct*12,(int)vel);
  188. pthread_mutex_unlock(&master->mutex);} {}
  189.   }
  190.   Function {relasekey(int nk,int type)} {} {
  191.     code {if ((nk<0)||(nk>=N_OCT*12)) return;
  192. if (pressed[nk]==0) return;//the key is not pressed
  193. if ((type!=0)&&(pressed[nk]!=type)) return;
  194.  
  195. pressed[nk]=0;
  196.  
  197.  
  198. damage(1);
  199.  
  200. pthread_mutex_lock(&master->mutex);
  201.  master->NoteOff(midich,nk+12*midioct);
  202. pthread_mutex_unlock(&master->mutex);} {}
  203.   }
  204.   Function {relaseallkeys(int type)} {} {
  205.     code {for (int i=0;i<N_OCT*12;i++) relasekey(i,type);} {}
  206.   }
  207.   decl {Master *master;} {}
  208.   decl {int pressed[N_OCT*12+1];} {}
  209.   decl {unsigned char midich;} {public
  210.   }
  211.   decl {unsigned char midivel;} {public
  212.   }
  213.   decl {char midioct,keyoct1,keyoct2;} {public
  214.   }
  215.   decl {unsigned char rndvelocity;} {public
  216.   }
  217. } 
  218.  
  219. class VirKeyboard {selected
  220. } {
  221.   Function {make_window()} {} {
  222.     Fl_Window virkeyboardwindow {
  223.       label {Virtual Keyboard - ZynAddSubFX}
  224.       callback {relaseallkeys();
  225. virkeyboardwindow->hide();}
  226.       xywh {95 563 650 130} type Double hide
  227.     } {
  228.       Fl_Box virkeys {
  229.         label Keyboard
  230.         xywh {10 10 590 80} box FLAT_BOX color 17
  231.         code0 {o->init(master);}
  232.         class VirKeys
  233.       }
  234.       Fl_Counter {} {
  235.         label {"qwer.." Oct}
  236.         callback {relaseallkeys();
  237. virkeys->keyoct1=(int) o->value();
  238. virkeys->take_focus();}
  239.         tooltip {keys "q2w3er5t6y..." octave} xywh {380 95 45 15} type Simple labelsize 10 align 4 when 6 minimum 0 maximum 5 step 1 textfont 1 textsize 10
  240.         code0 {o->value(virkeys->keyoct1);}
  241.       }
  242.       Fl_Counter {} {
  243.         label {"zxcv.." Oct}
  244.         callback {relaseallkeys();
  245. virkeys->keyoct2=(int) o->value();
  246. virkeys->take_focus();}
  247.         tooltip {keys "zsxdcvgbh..." octave} xywh {380 110 45 15} type Simple labelsize 10 align 4 when 6 minimum 0 maximum 5 step 1 textfont 1 textsize 10
  248.         code0 {o->value(virkeys->keyoct2);}
  249.       }
  250.       Fl_Value_Slider {} {
  251.         label Vel
  252.         callback {virkeys->midivel=(int) o->value();
  253. virkeys->take_focus();}
  254.         tooltip Velocity xywh {95 105 100 15} type {Horz Knob} box FLAT_BOX labelsize 10 align 5 minimum 1 maximum 127 step 1
  255.         code0 {o->value(virkeys->midivel);}
  256.       }
  257.       Fl_Counter {} {
  258.         label {Oct.}
  259.         callback {relaseallkeys();
  260. virkeys->midioct=(int) o->value();
  261. virkeys->take_focus();}
  262.         tooltip {Midi Octave} xywh {255 100 55 20} type Simple labelsize 12 align 4 when 6 minimum 0 maximum 5 step 1 textfont 1 textsize 12
  263.         code0 {o->value(virkeys->midioct);}
  264.       }
  265.       Fl_Button {} {
  266.         label Close
  267.         callback {relaseallkeys();
  268. virkeyboardwindow->hide();}
  269.         xywh {545 105 55 20} box THIN_UP_BOX
  270.       }
  271.       Fl_Value_Slider {} {
  272.         label Cval
  273.         callback {int ctl=midictl;
  274.  
  275. pthread_mutex_lock(&master->mutex);
  276.  master->SetController(virkeys->midich,ctl,(int) o->value());
  277. pthread_mutex_unlock(&master->mutex);
  278. virkeys->take_focus();}
  279.         tooltip {Controller value} xywh {605 10 15 115} type {Vert Fill} box ENGRAVED_BOX selection_color 229 labelsize 8 align 5 minimum 127 maximum 0 step 1 value 64 textsize 7
  280.       }
  281.       Fl_Choice {} {
  282.         label Controller
  283.         callback {switch((int) o->value()+1){
  284.    case 1: midictl=C_modwheel; break;
  285.    case 2: midictl=C_volume; break;
  286.    case 3: midictl=C_panning; break;
  287.    case 4: midictl=C_expression; break;
  288.    case 5: midictl=C_sustain; break;
  289.    case 6: midictl=C_portamento; break;
  290.    case 7: midictl=C_filterq; break;
  291.    case 8: midictl=C_filtercutoff; break;
  292.    case 9: midictl=C_bandwidth; break;
  293.    case 10: midictl=C_fmamp; break;
  294.    case 11: midictl=C_resonance_center; break;
  295.    case 12: midictl=C_resonance_bandwidth; break;
  296.    default: midictl=C_NULL; break;
  297.  
  298. };
  299.  
  300.  
  301.  
  302. virkeys->take_focus();}
  303.         xywh {435 105 100 15} down_box BORDER_BOX labelsize 10 align 5 when 6 textfont 1 textsize 10
  304.         code0 {midictl=C_filtercutoff;o->value(7);}
  305.       } {
  306.         menuitem {} {
  307.           label {01: Mod.Wheel}
  308.           xywh {0 0 100 20} labelfont 1 labelsize 10
  309.         }
  310.         menuitem {} {
  311.           label {07: Volume}
  312.           xywh {10 10 100 20} labelfont 1 labelsize 10
  313.         }
  314.         menuitem {} {
  315.           label {10: Panning}
  316.           xywh {20 20 100 20} labelfont 1 labelsize 10
  317.         }
  318.         menuitem {} {
  319.           label {11: Expression}
  320.           xywh {30 30 100 20} labelfont 1 labelsize 10
  321.         }
  322.         menuitem {} {
  323.           label {64: Sustain}
  324.           xywh {40 40 100 20} labelfont 1 labelsize 10
  325.         }
  326.         menuitem {} {
  327.           label {65: Portamento}
  328.           xywh {50 50 100 20} labelfont 1 labelsize 10
  329.         }
  330.         menuitem {} {
  331.           label {71: Filter Q}
  332.           xywh {60 60 100 20} labelfont 1 labelsize 10
  333.         }
  334.         menuitem {} {
  335.           label {74: Filter Freq.}
  336.           xywh {70 70 100 20} labelfont 1 labelsize 10
  337.         }
  338.         menuitem {} {
  339.           label {75: Bandwidth}
  340.           xywh {80 80 100 20} labelfont 1 labelsize 10
  341.         }
  342.         menuitem {} {
  343.           label {76: FM Gain}
  344.           xywh {90 90 100 20} labelfont 1 labelsize 10
  345.         }
  346.         menuitem {} {
  347.           label {77: Res. c. freq}
  348.           xywh {100 100 100 20} labelfont 1 labelsize 10
  349.         }
  350.         menuitem {} {
  351.           label {78: Res. bw.}
  352.           xywh {110 110 100 20} labelfont 1 labelsize 10
  353.         }
  354.       }
  355.       Fl_Roller pitchwheelroller {
  356.         label Pwh
  357.         callback {pthread_mutex_lock(&master->mutex);
  358.  master->SetController(virkeys->midich,C_pitchwheel,-(int) o->value());
  359. pthread_mutex_unlock(&master->mutex);
  360. virkeys->take_focus();}
  361.         tooltip {Pitch Wheel} xywh {625 10 20 95} box PLASTIC_UP_BOX labelsize 8 align 1 when 3 minimum -8192 maximum 8192 step 64
  362.       }
  363.       Fl_Button {} {
  364.         label R
  365.         callback {pitchwheelroller->value(0);
  366. pitchwheelroller->do_callback();}
  367.         tooltip {Reset Pitch Bend} xywh {625 110 20 15} box THIN_UP_BOX labelfont 1
  368.       }
  369.       Fl_Dial {} {
  370.         label Vrnd
  371.         callback {virkeys->rndvelocity=(int) o->value();}
  372.         tooltip {Velocity Randomness} xywh {205 105 20 20} box ROUND_UP_BOX labelsize 10 align 129 maximum 127 step 1
  373.         code0 {o->value(virkeys->rndvelocity);}
  374.         class WidgetPDial
  375.       }
  376.       Fl_Choice partrcv {
  377.         label {MIDI Ch.}
  378.         callback {relaseallkeys();
  379. virkeys->midich=(int) o->value();
  380. virkeys->take_focus();} open
  381.         tooltip {Send to Midi Channel} xywh {20 105 65 20} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  382.         code0 {char nrstr[10]; for(int i=0;i<NUM_MIDI_CHANNELS;i++){sprintf(nrstr,"Chn%d",i+1);if (i!=9) o->add(nrstr); else o->add("Drum10");};}
  383.         code1 {o->value(virkeys->midich);}
  384.       } {}
  385.     }
  386.   }
  387.   Function {VirKeyboard(Master *master_)} {} {
  388.     code {master=master_;
  389. midictl=75;
  390. make_window();} {}
  391.   }
  392.   Function {show()} {} {
  393.     code {virkeyboardwindow->show();} {}
  394.   }
  395.   Function {relaseallkeys()} {} {
  396.     code {virkeys->relaseallkeys(0);} {}
  397.   }
  398.   decl {Master *master;} {}
  399.   decl {int midictl;} {}
  400. } 
  401.